home *** CD-ROM | disk | FTP | other *** search
/ Long Ban 3 / Long Ban 3 - Disc 1.iso / mac / DISK1 / DATA / menu.Dxr / 00008.ls < prev    next >
Encoding:
Text File  |  1997-03-22  |  702 b   |  46 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on wait t
  6.   set wk to the ticks + (t * 60)
  7.   repeat while wk > the ticks
  8.     nothing()
  9.   end repeat
  10. end
  11.  
  12. on buttonaction sp
  13.   set the visible of sprite sp to 0
  14.   puppetSound("Laser.aif", 2)
  15.   updateStage()
  16.   wait(1)
  17.   set the visible of sprite sp to 1
  18.   puppetSound(0, 2)
  19.   updateStage()
  20. end
  21.  
  22. on mouseDown
  23.   set sp to the clickOn
  24.   case sp of
  25.     2:
  26.       buttonaction(sp)
  27.       go(1, "bini")
  28.     3:
  29.       sound stop 1
  30.       buttonaction(sp)
  31.       go(1, "mov")
  32.     4:
  33.       buttonaction(sp)
  34.       go(1, "cont")
  35.     5:
  36.       buttonaction(sp)
  37.       quit()
  38.     6:
  39.       buttonaction(sp)
  40.       go(1, "ura")
  41.     7:
  42.       buttonaction(sp)
  43.       go(1, "phot")
  44.   end case
  45. end
  46.